OT: Rozdily v chovani Rewrite (Erase, Rename)
Otázka od: D-Fanda
13. 10. 2004 20:48
Ahoj,
mozna mi nekdo bude moci vysvetlit, proc tato konstrukce prestala fungovat
pod TurboPascalem 7.0 na WIN XP (na Win9x to fungovalo), v Delphi 6 to
funguje i na WIN XP. Jiz vse prevadim do D6, ale jeste tak rok to potrebuju
udrzovat. FileMode=0, 18 nebo 64 jsem testoval, ale bez uspechu. Viz zdroj :
----------------------------------------------------------------------------
------------
var FPO:text;
begin {trvale blokuje na danem pocitaci vicenasobne spusteni programu}
{ FileMode=0;}
Assign(FPO,'C:\TP\DATA\BLOK.TXT');
{$I-}
ReWrite(FPO); Pom:=IOResult;
{$I+}
if Pom<>0 then Begin
// ShowMessage('Na tomto pocitaci je jiz spusten program ....!');
Writeln(' ');
Writeln('Na tomto pocitaci je jiz spusten program ...!');
Readln;
Halt; End;
----------------------------------------------------------------------------
--------
Mam TP7, D6 prof, Win XP prof., spusten jako administrator, disk s NTFS.
Predem moc diky za jakoukoliv radu Fanda.
Odpovedá: Petr Vones
14. 10. 2004 13:54
From: "D-Fanda" <d-fanda@seznam.cz>
> mozna mi nekdo bude moci vysvetlit, proc tato konstrukce prestala fungovat
> pod TurboPascalem 7.0 na WIN XP (na Win9x to fungovalo), v Delphi 6 to
> funguje i na WIN XP. Jiz vse prevadim do D6, ale jeste tak rok to potrebuju
> udrzovat. FileMode=0, 18 nebo 64 jsem testoval, ale bez uspechu. Viz zdroj :
Pouzij radeji TFileStream.
Petr Vones
Odpovedá: Vaclav Riha - Soft Consult
14. 10. 2004 13:05
>mozna mi nekdo bude moci vysvetlit, proc tato konstrukce prestala fungovat
>pod TurboPascalem 7.0 na WIN XP (na Win9x to fungovalo), v Delphi 6 to
>funguje i na WIN XP. Jiz vse prevadim do D6, ale jeste tak rok to potrebuju
>udrzovat. FileMode=0, 18 nebo 64 jsem testoval, ale bez uspechu. Viz zdroj :
TDOSStream ti taky nepomuze, ale zkus do toho souboru neco zapsat.
S pozdravem Vaclav Riha